home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
anp. hi-eddi
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
263b
|
11 lines
600 INPUT"[CLR,DOWN]NUMMER DES BILDES";D:
610 FOR C=1 TO 7:Z=PEEK(8085+C)
620 IF Z=D THEN G=32*D:GOTO650
640 NEXT
650 IF A=5 THEN A=4:LOAD"HI-PRINT",8,1
660 POKE3340,G:POKE3336,32:SYS3328:POKE53265,59:POKE53272,24
665 SYS3383
670 POKE3340,32:POKE3336,G:SYS3328:POKE53265,155:POKE53272,21
680 IF A=5 THEN RETURN
690 A=1 GOTO 50